home *** CD-ROM | disk | FTP | other *** search
/ Holt Researcher: American History / Holt Researcher: American History.iso / pc / modules / tour.dxr / 00422_movie forward arrow.ls < prev    next >
Encoding:
Text File  |  2000-01-21  |  1.6 KB  |  59 lines
  1. property ancestor
  2.  
  3. on new me, buttonName, castName, theChannel, theStageLoc, descendant
  4.   if objectp(descendant) then
  5.     ancestor = new(script("generic button"), buttonName, castName, theChannel, theStageLoc, descendant)
  6.   else
  7.     ancestor = new(script("generic button"), buttonName, castName, theChannel, theStageLoc, me)
  8.   end if
  9.   return me
  10. end
  11.  
  12. on performFunction me
  13.   global IconList1, IconList2, CreditList, gTourForwardArrow, firstTime
  14.   set the puppet of sprite 4 to 1
  15.   sprite(4).movieRate = 0
  16.   set the puppet of sprite 4 to 0
  17.   outScope(me._me)
  18.   sound stop 1
  19.   set the puppet of sprite 7 to 1
  20.   sprite(7).visible = 1
  21.   set the puppet of sprite 7 to 0
  22.   set the puppet of sprite 15 to 0
  23.   set the puppet of sprite 8 to 0
  24.   firstTime = 1
  25.   repeat with z = 2 to 10
  26.     if not (the memberNum of sprite z = 0) then
  27.       if member(the member of sprite z).type = #digitalVideo then
  28.         sprite(z).movieRate = 0
  29.         sprite(z).visible = 0
  30.         set the puppet of sprite z to 0
  31.         updateStage()
  32.       end if
  33.     end if
  34.   end repeat
  35.   if marker(0) = label("Navigation") then
  36.     repeat with X = 6 to 13
  37.       iconObj = getaProp(IconList1, X)
  38.       outScope(iconObj)
  39.     end repeat
  40.     outScope(gTourForwardArrow)
  41.   end if
  42.   if marker(0) = label("3.3") then
  43.     repeat with X = 5 to 12
  44.       iconObj = getaProp(IconList2, X)
  45.       outScope(iconObj)
  46.     end repeat
  47.     outScope(gTourForwardArrow)
  48.   end if
  49.   if marker(0) = label("Credits") then
  50.     repeat with X = 5 to 7
  51.       creditObj = getaProp(CreditList, X)
  52.       outScope(creditObj)
  53.     end repeat
  54.   end if
  55.   updateStage()
  56.   go(the frame + 1)
  57.   return me
  58. end
  59.